Carousel Volume 2 #1/carousel.iso/mactosh/hc/pennantf.sit/Pennant Fever/background_6540.txt

Text File | 1988-09-19 | 13.4 KB | 618 lines

-- background: 6540 from stack: in
-- bmap block id: 20677
-- flags: 0000
-- background id: 0
-- name: Index
----- HyperTalk script -----
on mouseUp
  global AllDivisions,AllTeams
  put the short name of the target into TargetName
  if TargetName is "Schedule Date" then
    -- user clicked on the date field
    put LineOfMouseClick(TargetName) into WhichLine
    set the cursor to 4
    go to card (line WhichLIne of field TargetName)
  else if TargetName is in AllDivisions then
    -- user clicked on a browser field
    put LineOfMouseClick(TargetName) into WhichLine
    set the cursor to 4
    get line WhichLIne of field TargetName
    if WhichLine = 1 then
      go to card TargetName
    else if (word 1 of it) is in AllTeams then
      go to card (word 1 of it)
    end if
  else if TargetName is in AllTeams then
    -- user clicked on one of the check boxes
    get the hilite of background button TargetName
    set the hilite of background button TargetName to not it
  end if
end mouseUp




-- part 8 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=18 top=60 right=154 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: National League East


-- part 9 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=94 top=60 right=154 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: National League West


-- part 11 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=18 top=169 right=276 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: American League East


-- part 12 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=94 top=169 right=276 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: American League West


-- part 13 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=118 right=134 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Mets


-- part 14 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=148 right=164 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Pirates


-- part 15 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=103 right=119 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Expos


-- part 16 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=73 right=89 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Cards


-- part 17 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=88 right=104 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Cubs


-- part 18 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=133 right=149 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Phils


-- part 19 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=103 right=119 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Dodgers


-- part 20 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=73 right=89 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Astros


-- part 21 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=148 right=164 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Reds


-- part 22 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=133 right=149 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Padres


-- part 23 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=118 right=134 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Giants


-- part 24 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=88 right=104 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Braves


-- part 25 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=231 right=247 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: RedSox


-- part 26 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=246 right=262 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Tigers


-- part 27 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=261 right=277 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Yankees


-- part 28 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=186 right=202 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Brewers


-- part 29 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=171 right=187 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: BlueJays


-- part 30 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=201 right=217 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Indians


-- part 31 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=357 top=216 right=232 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Orioles


-- part 32 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=171 right=187 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: A's


-- part 33 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=246 right=262 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Twins


-- part 34 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=261 right=277 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: WhiteSox


-- part 35 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=186 right=202 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Angels


-- part 36 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=231 right=247 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Royals


-- part 37 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=201 right=217 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Mariners


-- part 38 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=427 top=216 right=232 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Rangers


-- part 39 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=356 top=30 right=47 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Compute Clinch Dates
----- HyperTalk script -----
on mouseUp
  global AllTeams, AllDivisions
  answer "Copy division standings to team cards?" with "No" or "Yes"
  if it is "Yes" then
    push this card
    repeat with z = 1 to the number of items in AllDivisions
      go to card (item z of AllDivisions)
      click at location of background button "Change Team Cards"
    end repeat
    pop card
  end if
  repeat with z = 1 to the number of items in AllTeams
    put item z of AllTeams into ThisTeam
    if the hilite of background button ThisTeam then
      push this card
      go to card ThisTeam
      click at the location of background button "Clinch Dates"
      pop card
      set the hilite of background button ThisTeam to False
    end if
  end repeat
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=356 top=51 right=68 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Print Cards
----- HyperTalk script -----
on mouseUp
  global AllDivisions
  open printing with dialog
  repeat with z = 1 to the number of items in AllDivisions
    get item z of AllDivisions
    put field "Teams" of card it into TheseTeams
    repeat with x = 1 to the number of lines in TheseTeams
      put line x of TheseTeams into ThisTeam
      if the hilite of background button ThisTeam then
        push this card
        go to card ThisTeam
        print this card
        pop card
        set the hilite of background button ThisTeam to False
      end if
    end repeat
  end repeat
  close printing
end mouseUp



-- part 41 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=188 top=60 right=297 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Schedule Date


-- part 42 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=189 top=311 right=331 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=148 top=311 right=331 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  doMenu "Quit Hypercard"
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=11 top=311 right=328 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Browse
----- HyperTalk script -----
on mouseUp
  go to card "Index"
end mouseUp




-- part 46 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=62 top=311 right=328 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to card "Help"
end mouseUp